dim args :args =inputbox("seacrch part type =?",args,"AK3918E_QFN80_0MM4_9X9MM")'"AP_26M_IN"
'spart 300201010000429
searchValue = ucase(trim(args))
if searchValue<>"" then
	dim doc
	set doc = Application.ActiveDocument
	dim objs,obj
	set objs = doc.getobjects(1,,true)
	doc.SelectObjects ppcbObjectTypeAll, "*", False  
	doc.SelectObjects 8, searchValue, true  
	dim v
	set v = doc.ActiveView
	v.SetExtentsToSelection
end if

